      program simple
      real A(100), S
      A = 10
      S = sum(A)
      print *, 'Sum of A = ', S, ' (should be 1000.0) '
      end
